


    FOR EACH  rqd_ NO-LOCK WHERE rqd_nbr = "RA650067" :
        DISP rqd_nbr rqd_line rqd_req_qty WITH FRAME a  .

        FOR EACH pod_ NO-LOCK WHERE pod_part = rqd_part AND pod_req_nbr = rqd_nbr 
            AND pod_req_line = rqd_line :

            DISP pod_nbr pod_line pod_qty_ord WITH FRAME a .
            DOWN 1 WITH FRAME a .
    
        END.
    END.
